This function ornaments a symbol pattern by creating a chromatic downward moving appoggiatura from a higher adjacent symbol where two or more symbols repeat. Use it to smooth melodies with too many repeated symbols. Note that this works only with symbol patterns containing non-transpose symbols.
(ornament-higher-chromatic '(a a c c -l -l -l k l m m))
